home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1995 / 1 / 02 / tips.ampk / Tips & Tricks / Unterprogramme < prev    next >
Encoding:
Text File  |  1995-06-01  |  960 b   |  31 lines
  1. stack 20000
  2. set eins "`run enforcer`" ; Enforcer starten
  3. Work:MeinFehlerProgramm   ; Programm starten
  4.  
  5. set spring "weiter"       ; weiter geht's bei weiter
  6. set clinum "$eins"        ; den String "[xx]" übergeben
  7. skip breakcli             ; in die Unterroutine
  8.  
  9. lab weiter                ; hier geht hinterher weiter
  10.  
  11. unset eins                ; angelegte Variablen wieder
  12. unset clinum              ; löschen
  13. unset spring
  14.  
  15. quit 0                    ; das wars
  16.  
  17. ;-------------------------------------------------------
  18. ; das Unterprogramm (funkioniert nur bis 99 CLI-Nummern)
  19. ; erwartet in »$clinum« die Ausgabe von RUN und in
  20. ; »$spring« den Namen des Labels, wo es weitergeht
  21.  
  22. lab breakcli
  23.    set uno `echo "$clinum" first 6 len 2`
  24.    if "]" EQ "`echo $uno len 1`"
  25.       set uno "`echo $uno len 1 first 1`"
  26.    endif
  27.  
  28.    break $uno C           ; break »senden«
  29.    unset uno              ; Variable wieder auflösen
  30.    skip $spring back      ; und zurückspringen
  31.